(use-fancy-splash-screens-p, display-splash-screen): Move

display-graphic-p test from latter to former.  Fixes previous change.

diff --git a/lisp/startup.el b/lisp/startup.el
index 8d425f84e191fbc7bcc0e7401af434512b9f8cf2..2808689eaeb8243dfd7de7b146e929a96aba5335 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1341,9 +1341,10 @@ we put it on this frame."
 
 (defun use-fancy-splash-screens-p ()
   "Return t if fancy splash screens should be used."
-  (when (or (and (display-color-p)
+  (when (and (display-graphic-p)
+             (or (and (display-color-p)
                 (image-type-available-p 'xpm))
-           (image-type-available-p 'pbm))
+                 (image-type-available-p 'pbm)))
     (let ((frame (fancy-splash-frame)))
       (when frame
        (let* ((img (create-image (or fancy-splash-image
@@ -1517,8 +1518,7 @@ Type \\[describe-distribution] for information on getting the latest version."))
 Fancy splash screens are used on graphic displays,
 normal otherwise."
   (interactive)
-  (if (and (display-graphic-p)
-          (use-fancy-splash-screens-p))
+  (if (use-fancy-splash-screens-p)
       (fancy-splash-screens)
     (normal-splash-screen)))